home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD014a.dsk / PAL.48016.MARRACCINI.NOV.82.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  41 lines
  1. 0  TEXT : HOME : NORMAL 
  2. 10  TEXT : HOME 
  3. 20  VTAB 09: GOTO 100
  4. 30  REM  DISPLAY A$ IN CENTER
  5. 40  HTAB 20 - LEN(A$)/2 +1: PRINT A$: RETURN 
  6. 100 A$ = "MARRACCINI": GOSUB 40
  7. 105  VTAB 11
  8. 110 A$ = "ADVENTURE HINT SERVICE": GOSUB 40
  9. 120  INVERSE : VTAB 1: PRINT "                                        ": VTAB 21: PRINT "                                        "
  10. 130  FOR I = 1 TO 21: VTAB I: HTAB 1: PRINT " ": VTAB I: HTAB 40: PRINT " "
  11. 140  NEXT I
  12. 150  NORMAL 
  13. 160  VTAB 19: FLASH :A$ = "...PLEASE WAIT..."
  14. 170  GOSUB 40: NORMAL 
  15. 180  VTAB 22: PRINT  CHR$(13) + CHR$(4)"BLOAD ADVENTURE.PIC,A16384"
  16. 190  HOME : POKE  -16297,0: POKE  -16304,0: POKE  -16299,0
  17. 200  GET A$: HCOLOR= 3
  18. 220  TEXT : HOME : VTAB 1: PRINT "-- A SAMPLE ADVENTURE": VTAB 5: PRINT "  YOU ARE IN A CLEARING. TO THE RIGHT ISA TREE. TO THE NORTH IS A SMALL LAKE."
  19. 230  PRINT : PRINT "  A LARGE BOX IS NEAR. THERE IS A SIGN  ON THE BOX, THAT CANNOT BE READ.": PRINT : PRINT : PRINT "ENTER COMMAND: ";: FLASH : PRINT " ": NORMAL 
  20. 231  SPEED= 001: FOR I = 1 TO 5000: NEXT I
  21. 240  VTAB 12: HTAB 16: PRINT "HELP!!!": SPEED= 255
  22. 250  VTAB 15: PRINT "<CTRL-G><CTRL-G>WRITE A LETTER TO THE MARRACCINI ADVENT-URE HINT SERVICE..."
  23. 251  POKE  -16368,0
  24. 260  VTAB 23: PRINT "(PLEASE PRESS <RETURN>): ";: GET R$: HOME 
  25. 270  PRINT "MANY PEOPLE ENJOY ADVENTURES. STILL, NOTEVERYONE CAN THINK ON THE SAME LEVEL AS THE AUTHORS DO. EVERYONE THINKS DIFFER- ENTLY."
  26. 280  PRINT : PRINT "   THAT'S WHY MARRACCINI ADVENTURE HINT SERVICES IS AROUND. IF YOU GET STUCK ON AN ADVENTURE, FOLLOW THIS PROCEDURE:"
  27. 290  PRINT : PRINT "1. WRITE A LETTER TO US, INCLUDING THE     ADVENTURE YOU NEED HELP IN, WHERE YOU   ARE AT, YOUR INVENTORY, AND ANY         QUESTIONS."
  28. 300  PRINT "2. SEND THIS LETTER TO:                    MARRACCINI ADVENTURE HINTS              5582 DVORAK                             CLARKSTON, MICHIGAN 48016"
  29. 305  PRINT : PRINT "(PLEASE SEND A SELF-ADDRESSED, STAMPED   ENVELOPE WITH CORRECT POSTAGE)"
  30. 310  VTAB 23: PRINT "(PLEASE PRESS <RETURN>):";: GET R$: HOME 
  31. 320  PRINT "   WE BELIEVE THIS IS A FAIRLY CHEAP    METHOD OF GIVING HINTS.  FORTY CENTS ISCERTAINLY MUCH BETTER THAN OVER A DOLLARFOR A LONG DISTANCE CALL TO CALIFORNIA."
  32. 330  PRINT : PRINT "   WE CAN HELP YOU WITH THE FOLLOWING   LIST (IT WILL GET LARGER...)"
  33. 340  PRINT : PRINT " S.A.G.A. SERIES:": PRINT "   PIRATE ADVENTURE": PRINT " SIERRA ON-LINE ADVENTURE SERIES:"
  34. 350  PRINT "   MISSION ASTEROID": PRINT "   WIZARD & PRINCESS": PRINT "   CRANSTON MANOR (MOST)": PRINT "   ULYSSES & GOLDEN FLEECE"
  35. 360  PRINT "   TIME ZONE (SOME)"
  36. 370  PRINT " SIRIUS SOFTWARE ADVENTURES:": PRINT "   KABUL SPY": PRINT "   ESCAPE FROM RUNGISTAN": PRINT "   BLADE FROM BLACKPOOLE"
  37. 380  VTAB 23: PRINT "(PLEASE PRESS <RETURN>):";: GET R$: HOME 
  38. 390  PRINT "  WE CAN HELP YOU WITH AN EVER-EXPANDINGLIST OF ADVENTURES. SINCE WE HANDLE MANYCOMPANIES, WE OFFER A WIDE RANGE OF     ASSISTANCE."
  39. 400  PRINT : PRINT "   WE SEND OUR REPLIES QUICKLY, OVER    MAIL. YOUR HINT WILL COME WITHIN A WEEK AFTER YOU MAILED IT. "
  40. 410  PRINT : PRINT "SO WHEN YOU NEED HELP, DROP US A LINE!"
  41. 420  VTAB 23: PRINT "(PLEASE PRESS <RETURN>):";: GET R$: PRINT  CHR$(13) + CHR$(4)"RUN PAL.MENU"